* Подсчет количества строк в тексовом файле.

* Входной файл 1.txt содержит пять строк (по одному слову в каждой строке файла): яблоко груша апельсин помидор огурец
файл читать "[$ТекущийКаталог]1.txt"
присвоить КОЛИЧЕСТВО_СТРОК 0
файл читатьСтроку СТРОКА
пока [$строкаПрочитана]
  увеличить КОЛИЧЕСТВО_СТРОК
  файл читатьСтроку СТРОКА
цикл
показать сообщение [КОЛИЧЕСТВО_СТРОК]